#!/usr/bin/perl


use Net::Twitter;

$ConsumerKey = "";
$ConsumerSecret = "";
$Token = "";
$TokenSecret = "";

$nt = Net::Twitter->new(
    traits   => [qw/API::RESTv1_1/],
    consumer_key        => $ConsumerKey,
    consumer_secret     => $ConsumerSecret,
    access_token        => $Token,
    access_token_secret => $TokenSecret
    );
